home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / prog_d / qrep10b.zip / SIMPREP.DFM / SIMPREP.txt < prev   
Text File  |  1996-04-11  |  8KB  |  354 lines
  1. object SimpForm: TSimpForm
  2.   Left = 384
  3.   Top = 185
  4.   Width = 782
  5.   Height = 258
  6.   HorzScrollBar.Range = 1200
  7.   VertScrollBar.Range = 2000
  8.   AutoScroll = False
  9.   Caption = 'SimpForm'
  10.   Font.Color = clBlack
  11.   Font.Height = -13
  12.   Font.Name = 'Arial'
  13.   Font.Style = []
  14.   PixelsPerInch = 96
  15.   TextHeight = 16
  16.   object TitleBand: TQRBand
  17.     Left = 0
  18.     Top = 0
  19.     Width = 1200
  20.     Height = 45
  21.     Align = alTop
  22.     BandType = rbTitle
  23.     Color = clWhite
  24.     Font.Color = clBlack
  25.     Font.Height = -13
  26.     Font.Name = 'Arial'
  27.     Font.Style = [fsBold]
  28.     ForceNewPage = False
  29.     Frame.DrawTop = False
  30.     Frame.DrawBottom = False
  31.     Frame.DrawLeft = False
  32.     Frame.DrawRight = False
  33.     ParentFont = False
  34.     Ruler = qrrInchesHV
  35.     object QRLabel3: TQRLabel
  36.       Left = 572
  37.       Top = 20
  38.       width = 167
  39.       height = 16
  40.       Caption = 'Copyright (c) 1996 QSD AS'
  41.       AlignToBand = False
  42.       Font.Color = clBlack
  43.       Font.Height = -13
  44.       Font.Name = 'Arial'
  45.       Font.Style = [fsBold, fsItalic]
  46.       ParentFont = False
  47.       Transparent = True
  48.     end
  49.     object Image1: TImage
  50.       Left = 12
  51.       Top = 4
  52.       Width = 69
  53.       Height = 33
  54.       Picture.Data = {<image000.bmp>}
  55.       Stretch = True
  56.     end
  57.     object QRLabel1: TQRLabel
  58.       Left = 96
  59.       Top = 4
  60.       width = 193
  61.       height = 36
  62.       Caption = 'QuickReport'
  63.       AlignToBand = False
  64.       Font.Color = 8404992
  65.       Font.Height = -32
  66.       Font.Name = 'Arial'
  67.       Font.Style = [fsBold, fsItalic]
  68.       ParentFont = False
  69.       Transparent = True
  70.     end
  71.     object QRLabel2: TQRLabel
  72.       Left = 300
  73.       Top = 20
  74.       width = 61
  75.       height = 16
  76.       Caption = 'for Delphi'
  77.       AlignToBand = False
  78.       Font.Color = 8404992
  79.       Font.Height = -13
  80.       Font.Name = 'Arial'
  81.       Font.Style = [fsBold, fsItalic]
  82.       ParentFont = False
  83.     end
  84.   end
  85.   object DetailBand: TQRBand
  86.     Left = 0
  87.     Top = 65
  88.     Width = 1200
  89.     Height = 20
  90.     Align = alTop
  91.     BandType = rbDetail
  92.     Color = clWhite
  93.     ForceNewPage = False
  94.     Frame.DrawTop = False
  95.     Frame.DrawBottom = True
  96.     Frame.DrawLeft = False
  97.     Frame.DrawRight = False
  98.     Ruler = qrrNone
  99.     object QRDBText1: TQRDBText
  100.       Left = 12
  101.       Top = 0
  102.       width = 213
  103.       height = 17
  104.       DataSource = DataSource1
  105.       DataField = 'Company'
  106.     end
  107.     object QRDBText2: TQRDBText
  108.       Left = 440
  109.       Top = 0
  110.       width = 117
  111.       height = 17
  112.       DataSource = DataSource1
  113.       DataField = 'Contact'
  114.     end
  115.     object QRDBText3: TQRDBText
  116.       Left = 568
  117.       Top = 0
  118.       width = 85
  119.       height = 17
  120.       DataSource = DataSource1
  121.       DataField = 'Phone'
  122.     end
  123.     object QRDBText4: TQRDBText
  124.       Left = 660
  125.       Top = 0
  126.       width = 85
  127.       height = 17
  128.       DataSource = DataSource1
  129.       DataField = 'FAX'
  130.     end
  131.     object QRDBText5: TQRDBText
  132.       Left = 240
  133.       Top = 0
  134.       width = 90
  135.       height = 16
  136.       AutoSize = True
  137.       DataSource = DataSource1
  138.       DataField = 'Addr1'
  139.       Transparent = True
  140.     end
  141.   end
  142.   object PageFooterBand: TQRBand
  143.     Left = 0
  144.     Top = 85
  145.     Width = 1200
  146.     Height = 20
  147.     Align = alTop
  148.     BandType = rbPageFooter
  149.     Color = clWhite
  150.     ForceNewPage = False
  151.     Frame.Width = 0
  152.     Frame.DrawTop = False
  153.     Frame.DrawBottom = False
  154.     Frame.DrawLeft = False
  155.     Frame.DrawRight = False
  156.     Ruler = qrrNone
  157.     object QRSysData1: TQRSysData
  158.       Left = 640
  159.       Top = 0
  160.       width = 89
  161.       height = 17
  162.       Alignment = taRightJustify
  163.       AlignToBand = True
  164.       Data = qrsPageNumber
  165.       Text = 'Page '
  166.     end
  167.   end
  168.   object QRBand1: TQRBand
  169.     Left = 0
  170.     Top = 45
  171.     Width = 1200
  172.     Height = 20
  173.     Align = alTop
  174.     BandType = rbColumnHeader
  175.     Color = clWhite
  176.     ForceNewPage = False
  177.     Frame.DrawTop = False
  178.     Frame.DrawBottom = True
  179.     Frame.DrawLeft = False
  180.     Frame.DrawRight = False
  181.     Ruler = qrrNone
  182.     object QRLabel4: TQRLabel
  183.       Left = 12
  184.       Top = 1
  185.       width = 60
  186.       height = 16
  187.       Caption = 'Company'
  188.       AlignToBand = False
  189.       Font.Color = clBlack
  190.       Font.Height = -13
  191.       Font.Name = 'Arial'
  192.       Font.Style = [fsBold]
  193.       ParentFont = False
  194.     end
  195.     object QRLabel5: TQRLabel
  196.       Left = 240
  197.       Top = 1
  198.       width = 50
  199.       height = 16
  200.       Caption = 'Address'
  201.       AlignToBand = False
  202.       Font.Color = clBlack
  203.       Font.Height = -13
  204.       Font.Name = 'Arial'
  205.       Font.Style = [fsBold]
  206.       ParentFont = False
  207.     end
  208.     object QRLabel6: TQRLabel
  209.       Left = 440
  210.       Top = 1
  211.       width = 48
  212.       height = 16
  213.       Caption = 'Contact'
  214.       AlignToBand = False
  215.       Font.Color = clBlack
  216.       Font.Height = -13
  217.       Font.Name = 'Arial'
  218.       Font.Style = [fsBold]
  219.       ParentFont = False
  220.     end
  221.     object QRLabel7: TQRLabel
  222.       Left = 568
  223.       Top = 1
  224.       width = 41
  225.       height = 16
  226.       Caption = 'Phone'
  227.       AlignToBand = False
  228.       Font.Color = clBlack
  229.       Font.Height = -13
  230.       Font.Name = 'Arial'
  231.       Font.Style = [fsBold]
  232.       ParentFont = False
  233.     end
  234.     object QRLabel8: TQRLabel
  235.       Left = 660
  236.       Top = 1
  237.       width = 24
  238.       height = 16
  239.       Caption = 'Fax'
  240.       AlignToBand = False
  241.       Font.Color = clBlack
  242.       Font.Height = -13
  243.       Font.Name = 'Arial'
  244.       Font.Style = [fsBold]
  245.       ParentFont = False
  246.     end
  247.   end
  248.   object QRBand2: TQRBand
  249.     Left = 0
  250.     Top = 105
  251.     Width = 1200
  252.     Height = 20
  253.     Align = alTop
  254.     BandType = rbGroupFooter
  255.     Color = clWhite
  256.     ForceNewPage = False
  257.     Frame.DrawTop = False
  258.     Frame.DrawBottom = True
  259.     Frame.DrawLeft = False
  260.     Frame.DrawRight = False
  261.     Ruler = qrrNone
  262.   end
  263.   object SimpRep: TQuickReport
  264.     DataSource = DataSource1
  265.     ColumnMarginInches = 0
  266.     ColumnMarginMM = 0
  267.     Columns = 1
  268.     DisplayPrintDialog = False
  269.     LeftMarginInches = 0
  270.     LeftMarginMM = 0
  271.     Orientation = poPortrait
  272.     PageFrame.DrawTop = True
  273.     PageFrame.DrawBottom = True
  274.     PageFrame.DrawLeft = True
  275.     PageFrame.DrawRight = True
  276.     PaperLength = 0
  277.     PaperSize = qrpDefault
  278.     PaperWidth = 0
  279.     PrintOrder = qrColByCol
  280.     ReportTitle = 'QuickReport Simple report demonstration'
  281.     RestartData = True
  282.     SQLCompatible = False
  283.     TitleBeforeHeader = False
  284.     Left = 4
  285.     Top = 140
  286.   end
  287.   object Table1: TTable
  288.     Active = True
  289.     DatabaseName = 'DBDEMOS'
  290.     IndexName = 'ByCompany'
  291.     TableName = 'CUSTOMER.DB'
  292.     Left = 36
  293.     Top = 140
  294.     object Table1Company: TStringField
  295.       FieldName = 'Company'
  296.       Size = 30
  297.     end
  298.     object Table1CustNo: TFloatField
  299.       FieldName = 'CustNo'
  300.     end
  301.     object Table1Addr1: TStringField
  302.       FieldName = 'Addr1'
  303.       Size = 30
  304.     end
  305.     object Table1Addr2: TStringField
  306.       FieldName = 'Addr2'
  307.       Size = 30
  308.     end
  309.     object Table1City: TStringField
  310.       FieldName = 'City'
  311.       Size = 15
  312.     end
  313.     object Table1State: TStringField
  314.       FieldName = 'State'
  315.     end
  316.     object Table1Zip: TStringField
  317.       FieldName = 'Zip'
  318.       Size = 10
  319.     end
  320.     object Table1Country: TStringField
  321.       FieldName = 'Country'
  322.     end
  323.     object Table1Phone: TStringField
  324.       FieldName = 'Phone'
  325.       Size = 15
  326.     end
  327.     object Table1FAX: TStringField
  328.       FieldName = 'FAX'
  329.       Size = 15
  330.     end
  331.     object Table1TaxRate: TFloatField
  332.       FieldName = 'TaxRate'
  333.     end
  334.     object Table1Contact: TStringField
  335.       FieldName = 'Contact'
  336.     end
  337.     object Table1LastInvoiceDate: TDateTimeField
  338.       FieldName = 'LastInvoiceDate'
  339.     end
  340.   end
  341.   object DataSource1: TDataSource
  342.     DataSet = Table1
  343.     Left = 68
  344.     Top = 140
  345.   end
  346.   object QRGroup1: TQRGroup
  347.     FooterBand = QRBand2
  348.     Level = 0
  349.     OnNeedData = QRGroup1NeedData
  350.     Left = 16
  351.     Top = 172
  352.   end
  353. end
  354.